home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 30
/
Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso
/
Aminet
/
util
/
boot
/
selector90.lha
/
Selector
/
pref
/
changepat
< prev
next >
Wrap
AmigaDOS Script File
|
1998-10-14
|
574b
|
30 lines
.key a
.bra {
.ket }
getline env:selector.settings opa " pattern {a} "
chopword opa epa
chopword opa epa
chopword opa epa
failat 21
if "$epa" EQ ""
list >env:opapath lformat %F /patterns/4.gravel
if warn
setenv opapath env:patterns
endif
setenv opaname ""
else
enclose epa
filename >env:opapath -nofnutts -pathonly $epa
filename >env:opaname -nofnutts -nopath $epa
endif
requestfile >env:opa drawer "$opapath" file "$opaname" title "Select pattern"
if not warn
setenv epa pattern {a} $opa orDefault
changeline env:selector.settings epa " pattern {a} "
endif